home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / INVP.N < prev    next >
Text File  |  1995-11-08  |  5KB  |  133 lines
  1. Define InvPrint(code) {
  2.     InvPrintCreate();
  3.     abort = InvPrintSingle(code);
  4.     InvPrintDestroy(abort);
  5. }
  6. Define InvPrintCreate() {
  7.     glob^invp^doc = PdCreate(parm^prt^inv^name, "InvPrint",
  8.                             parm^prt^inv^append, 
  9.                             parm^prt^inv^copies,
  10.                             parm^prt^inv^browse,
  11.                             0, 0, 0, "",
  12.                             parm^prt^inv^start,
  13.                             parm^prt^inv^end);
  14.     PdPageSize(glob^invp^doc, parm^page^inv^height, 
  15.                              parm^page^inv^width,
  16.                              parm^page^inv^margin^top, 
  17.                              parm^page^inv^margin^bottom,
  18.                              parm^page^inv^margin^left, 
  19.                              parm^page^inv^margin^right);
  20.  
  21.     glob^invp^scr = MsgCreate("Invoice Print Progress");
  22.  
  23.     glob^invp^fmt10 = fmt = PfCreate();
  24.     PfDate  (fmt,  0,  0, 10);              /* todays date */
  25.     PfPrompt(fmt,  5,  0, " ");
  26.  
  27.     glob^invp^fmt20 = fmt = PfCreate();
  28.     PfString(fmt,  0,  0, 12);              /* client attention */
  29.     PfString(fmt,  0, 14, 50);
  30.     PfPrompt(fmt,  1,  0, " ");
  31.  
  32.     glob^invp^fmt30 = fmt = PfCreate();     /* client address */
  33.     PfString(fmt,  0,  0, 50);
  34.     PfString(fmt,  2,  0, 50);
  35.     PfString(fmt,  4,  0, 50);
  36.     PfString(fmt,  6,  0, 50);
  37.     PfPrompt(fmt,  6, 50, "Our Ref:");
  38.     PfInt   (fmt,  6, 59, 6);
  39.     PfPrompt(fmt,  9,  0, " ");
  40.  
  41.     glob^invp^fmt40 = fmt = PfCreate();
  42.     PfPrompt(fmt,  0,  0, "Re:  Valuation  -");
  43.     PfString(fmt,  0, 18, 40);              /* property address */
  44.     PfString(fmt,  1, 18, 40);
  45.     PfString(fmt,  2, 18, 40);
  46.     PfString(fmt,  3, 18, 40);
  47.     PfPrompt(fmt,  5,  0, " ");
  48.  
  49.     glob^invp^fmt50 = fmt = PfCreate();     /* applicant name */
  50.     PfString(fmt,  0,  5, 11);
  51.     PfString(fmt,  0, 18, 40);
  52.     PfPrompt(fmt,  1,  0, " ");
  53.  
  54.     glob^invp^fmt60 = fmt = PfCreate();     /* loan account number */
  55.     PfString(fmt,  0,  5, 16);
  56.     PfString(fmt,  0, 23, 20);
  57.     PfPrompt(fmt,  3,  0, " ");
  58.  
  59.     glob^invp^fmt70 = fmt = PfCreate();     /* fee */
  60.     PfString(fmt,  0,  0, 49, "l", ".");
  61.     PfPrompt(fmt,  0, 49, "$");
  62.     PfFloat (fmt,  0, 50, 10, 2, "l");
  63. }
  64. Define InvPrintDestroy(abort) {
  65.     PfDestroy(glob^invp^fmt70);
  66.     PfDestroy(glob^invp^fmt60);
  67.     PfDestroy(glob^invp^fmt50);
  68.     PfDestroy(glob^invp^fmt40);
  69.     PfDestroy(glob^invp^fmt30);
  70.     PfDestroy(glob^invp^fmt20);
  71.     PfDestroy(glob^invp^fmt10);
  72.     MsgDestroy(glob^invp^scr);
  73.     PdClose(glob^invp^doc, abort);
  74. }
  75. Define InvPrintSingle(code) {
  76.     if (!(abort = MsgShow(glob^invp^scr, "Invoice Number : " . code))) {
  77.  
  78.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt10, "", 
  79.                                         data^inv^[code]^date));
  80.  
  81.         client = data^inv^[code]^clnt;
  82.         branch = data^inv^[code]^brch;
  83.         if (!branch) {
  84.             preFld  = StrCat("clnt^", client);
  85.             preCode = StrCat("clnt_code^", client);
  86.         }
  87.         else {
  88.             preFld  = StrCat("clbr^", client, "^", branch);
  89.             preCode = StrCat("clbr_code^", client, "^", branch);
  90.         }
  91.  
  92.         if (attn = univ^[preFld]^attn)
  93.             attnPrompt = "Attention:";
  94.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt20, "", 
  95.                                         attnPrompt, 
  96.                                         attn));
  97.  
  98.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt30, "", 
  99.                                         univ^[preCode],
  100.                                         univ^[preFld]^add1,
  101.                                         univ^[preFld]^add2,
  102.                                         univ^[preFld]^add3,
  103.                                         data^inv^[code]^job));
  104.  
  105.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt40, "", 
  106.                                         data^inv^[code]^add1,
  107.                                         data^inv^[code]^add2,
  108.                                         data^inv^[code]^add3,
  109.                                         data^inv^[code]^add4));
  110.  
  111.         if (appl = data^inv^[code]^appl)
  112.             applPrompt = "Applicant:";
  113.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt50, "", 
  114.                                         applPrompt, 
  115.                                         appl));
  116.  
  117.         if (loan = data^inv^[code]^loan)
  118.             loanPrompt = "Loan Account No:";
  119.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt60, "", 
  120.                                         loanPrompt,
  121.                                         loan));
  122.  
  123.         if (!(feet = data^inv^[code]^feet))
  124.             feet = "Fees";
  125.         PdWrite(glob^invp^doc, PfFormat(glob^invp^fmt70, "", 
  126.                                         feet,
  127.                                         data^inv^[code]^base +
  128.                                         data^inv^[code]^extr));
  129.     }
  130.     return abort;
  131. }
  132.  
  133.